home *** CD-ROM | disk | FTP | other *** search
/ Publication 1 / Publication_01_19xx_-_de_Side_A.d64 / die basic-demo (.txt) next >
Commodore BASIC  |  2023-02-26  |  675b  |  27 lines
  1. 1 m$(1)="testpunkt 1"
  2. 2 m$(2)="testpunkt 2"
  3. 3 an=2:rem anzahl
  4. 4 mf=1:rem farbe weiss
  5. 5 gosub10
  6. 6 print"[147] menuepunkt :[144]";a""
  7. 7 end
  8. 10 printchr$(147):a=1:q=-1:poke646,mf:forg=1toan:print" "m$(g):nextg
  9. 20 q=q+1:poke646,q:ifq=16thenq=0
  10. 30 poke211,1:poke214,a:sys58640:printm$(a)
  11. 40 geta$:ifa$=""then20
  12. 50 poke211,1:poke214,a:sys58640:poke646,mf:printm$(a)
  13. 60 ifa$="[145]"thenifa>1thena=a-1
  14. 70 ifa$=""thenifa<anthena=a+1
  15. 80 ifa$=chr$(13)thenreturn
  16. 90 goto20
  17. 100 rem ***********************
  18. 101 rem *                     *
  19. 102 rem * diese menue-routine *
  20. 103 rem * kannst du in deine  *
  21. 104 rem * eigenen programme   *
  22. 105 rem * einbinden !         *
  23. 106 rem *                     *
  24. 107 rem * zeitgeist/pcc/dsi   *
  25. 108 rem *                     *
  26. 109 rem ***********************
  27.